home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 3: CDPD 3
/
Almathera Ten on Ten - Disc 3: CDPD3.iso
/
scope
/
101-125
/
scopedisk122
/
bassub
/
intuits.header
< prev
next >
Wrap
Text File
|
1995-03-19
|
232b
|
9 lines
COMMON SHARED which%,BoxIndex%,MaxLen%,ScrID%
DIM work%(400)
DIM x1%(51),y1%(51),x2%(51),y2%(51)
REM Set ScrID% to -1 for WB
ScrID%=-1
which%=0 'which% box is selected
BoxIndex%=1 'How many gadgets
maxlen%=15 'length of text fields